pattern printing in qbasic